home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / pcsuni1.zip / VOTER404.ZIP / VOTEGRAF.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1997-03-24  |  6KB  |  264 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  TINTEGER001(16)
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     String   STRING001
  34.     String   TSTRING002(7)
  35.     String   TSTRING003(16)
  36.     String   STRING004
  37.     String   STRING005
  38.     String   STRING006
  39.     String   STRING007
  40.     String   TSTRING008(16)
  41.     String   STRING009
  42.     String   STRING010
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     FOpen 1, PPEPath() + "vote.CFG", 0, 0
  47.     For INTEGER010 = 1 To 7
  48.         FGet 1, TSTRING002(INTEGER010)
  49.         TSTRING002(INTEGER010) = RTrim(Left(TSTRING002(INTEGER010), 29), " ")
  50.     Next
  51.     FClose 1
  52.     For INTEGER013 = 1 To S2I(TSTRING002(1), 10)
  53.         STRING010 = INTEGER013
  54.         STRING009 = PPEPath() + "vote" + STRING010 + ".ans"
  55.         If (Exist(STRING009)) Continue
  56.         FCreate 1, STRING009, 1, 0
  57.         FClose 1
  58.     Next
  59.     PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  60.     PrintLn "@X10│··@X1EVoter++@X10······@X1AInitializing @X1EVoter++@X1A Bulletin Generator@X10··@X1A-@X10··@X1APlease wait....@X10···@X19│@X0F"
  61.     PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X0F"
  62.     INTEGER012 = 6
  63.     For INTEGER011 = 1 To TSTRING002(1)
  64.         Inc INTEGER012
  65.         STRING001 = INTEGER011
  66.         FOpen 4, TSTRING002(INTEGER012), 1, 0
  67.         FDefOut 4
  68.         INTEGER004 = 0
  69.         INTEGER005 = 0
  70.         INTEGER006 = 0
  71.         INTEGER010 = 0
  72.         INTEGER002 = 0
  73.         INTEGER005 = 0
  74.         INTEGER006 = 0
  75.         INTEGER007 = 1
  76.         INTEGER014 = 0
  77.         FOpen 5, PPEPath() + "vote" + STRING001 + ".ans", 0, 0
  78.         :LABEL001
  79.         If (Ferr(5)) Goto LABEL002
  80.         Inc INTEGER005
  81.         FGet 5, STRING007
  82.         INTEGER014 = STRING007 + INTEGER014
  83.         Goto LABEL001
  84.         :LABEL002
  85.         FClose 5
  86.         INTEGER005 = INTEGER005 - 1
  87.         STRING004 = PPEPath() + "vote" + STRING001 + ".ans"
  88.         STRING005 = PPEPath() + "vote" + STRING001 + ".que"
  89.         STRING006 = ReadLine(STRING005, 1)
  90.         FOpen 2, STRING005, 0, 0
  91.         :LABEL003
  92.         If (Ferr(2)) Goto LABEL004
  93.         Inc INTEGER006
  94.         FGet 2, TSTRING008(INTEGER006)
  95.         TSTRING008(INTEGER006) = Left(TSTRING008(INTEGER006), 49)
  96.         Goto LABEL003
  97.         :LABEL004
  98.         FClose 2
  99.         FOpen 4, TSTRING002(7), 1, 0
  100.         FDefOut 4
  101.         FDPut "@CLS@"
  102.         FDPutLn "@X04Q#@X09 ", INTEGER011, "@X04:@X0A ", STRING006
  103.         FDPutLn 
  104.         FDPutLn "@X0EPossible Answers:                                    @X0C0    25   50   75  100"
  105.         FDPutLn "                                                     @X04├┬┬┬┬┼┬┬┬┬┼┬┬┬┬┼┬┬┬┬┤@X0E"
  106.         For INTEGER003 = 1 To INTEGER005
  107.             If (INTEGER003 > 16) Break
  108.             TINTEGER001(INTEGER003) = ReadLine(STRING004, INTEGER003)
  109.             INTEGER004 = INTEGER004 + TINTEGER001(INTEGER003)
  110.             If (TINTEGER001(INTEGER003) == "") TINTEGER001(INTEGER003) = "0"
  111.             Inc INTEGER002
  112.         Next
  113.         For INTEGER003 = 1 To INTEGER002
  114.             If (INTEGER003 > 16) Goto LABEL005
  115.             If (INTEGER003 > INTEGER002) Goto LABEL005
  116.             TINTEGER001(INTEGER003) = (TINTEGER001(INTEGER003) * 100) / INTEGER004
  117.             :LABEL005
  118.             If (TINTEGER001(INTEGER003) == 0) Then
  119.                 TSTRING003(0) = "@X09■@X0A····················"
  120.                 Goto LABEL006
  121.             ElseIf (TINTEGER001(INTEGER003) <= 5) Then
  122.                 TSTRING003(0) = "@X09■@X0A■···················"
  123.                 Goto LABEL006
  124.             ElseIf (TINTEGER001(INTEGER003) <= 10) Then
  125.                 TSTRING003(0) = "@X09■@X0A■■··················"
  126.                 Goto LABEL006
  127.             ElseIf (TINTEGER001(INTEGER003) <= 15) Then
  128.                 TSTRING003(0) = "@X09■@X0A■■■·················"
  129.                 Goto LABEL006
  130.             ElseIf (TINTEGER001(INTEGER003) <= 20) Then
  131.                 TSTRING003(0) = "@X09■@X0A■■■■················"
  132.                 Goto LABEL006
  133.             ElseIf (TINTEGER001(INTEGER003) <= 25) Then
  134.                 TSTRING003(0) = "@X09■@X0A■■■■■···············"
  135.                 Goto LABEL006
  136.             ElseIf (TINTEGER001(INTEGER003) <= 30) Then
  137.                 TSTRING003(0) = "@X09■@X0A■■■■■■··············"
  138.                 Goto LABEL006
  139.             ElseIf (TINTEGER001(INTEGER003) <= 35) Then
  140.                 TSTRING003(0) = "@X09■@X0A■■■■■■■·············"
  141.                 Goto LABEL006
  142.             ElseIf (TINTEGER001(INTEGER003) <= 40) Then
  143.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■············"
  144.                 Goto LABEL006
  145.             ElseIf (TINTEGER001(INTEGER003) <= 45) Then
  146.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■···········"
  147.                 Goto LABEL006
  148.             ElseIf (TINTEGER001(INTEGER003) <= 50) Then
  149.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■··········"
  150.                 Goto LABEL006
  151.             ElseIf (TINTEGER001(INTEGER003) <= 55) Then
  152.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■·········"
  153.                 Goto LABEL006
  154.             ElseIf (TINTEGER001(INTEGER003) <= 60) Then
  155.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■········"
  156.                 Goto LABEL006
  157.             ElseIf (TINTEGER001(INTEGER003) <= 65) Then
  158.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■·······"
  159.                 Goto LABEL006
  160.             ElseIf (TINTEGER001(INTEGER003) <= 70) Then
  161.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■······"
  162.                 Goto LABEL006
  163.             ElseIf (TINTEGER001(INTEGER003) <= 75) Then
  164.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■·····"
  165.                 Goto LABEL006
  166.             ElseIf (TINTEGER001(INTEGER003) <= 80) Then
  167.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■■····"
  168.                 Goto LABEL006
  169.             ElseIf (TINTEGER001(INTEGER003) <= 85) Then
  170.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■■■···"
  171.                 Goto LABEL006
  172.             ElseIf (TINTEGER001(INTEGER003) <= 90) Then
  173.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■■■■··"
  174.                 Goto LABEL006
  175.             ElseIf (TINTEGER001(INTEGER003) <= 95) Then
  176.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■■■■■·"
  177.                 Goto LABEL006
  178.             ElseIf (TINTEGER001(INTEGER003) <= 100) Then
  179.                 TSTRING003(0) = "@X0C■■■■■■■■■■■■■■■■■■■■@X0E■"
  180.                 Goto LABEL006
  181.             Endif
  182.             If (TINTEGER001(INTEGER003) >= 101) Then
  183.                 Goto LABEL005
  184.             Endif
  185.             :LABEL006
  186.             INTEGER007 = INTEGER007 + 1
  187.             INTEGER008 = Len(TSTRING008(INTEGER007))
  188.             INTEGER009 = 52 - INTEGER008
  189.             FDPutLn "@X0B", TSTRING008(INTEGER007), Space(INTEGER009), " ", TSTRING003(0), " ", TINTEGER001(INTEGER003), "%"
  190.         Next
  191.         FDPutLn "                                        @X04             ├┴┴┴┴┼┴┴┴┴┼┴┴┴┴┼┴┴┴┴┤"
  192.         FDPutLn "@X0CCreated by:  @X0AVoter++ Bulletin Generator              @X0C0    25   50   75  100"
  193.         FDPutLn "@X0B             Voted on by@X0E ", INTEGER014, "@X0B callers"
  194.         FDPutLn 
  195.         FDPutLn "@MORE@"
  196.         If (INTEGER011 >= TSTRING002(1)) Then
  197.             FClose 4
  198.             End
  199.         Endif
  200.     Next
  201.     FClose 4
  202.  
  203. ;------------------------------------------------------------------------------
  204. ;
  205. ; Usage report (before postprocessing)
  206. ;
  207. ; ■ Statements used :
  208. ;
  209. ;    1       End
  210. ;    83      Goto 
  211. ;    58      Let 
  212. ;    3       PrintLn 
  213. ;    35      If 
  214. ;    1       FCreate 
  215. ;    5       FOpen 
  216. ;    6       FClose 
  217. ;    3       FGet 
  218. ;    4       Inc 
  219. ;    2       FDefOut 
  220. ;    1       FDPut 
  221. ;    10      FDPutLn 
  222. ;
  223. ;
  224. ; ■ Functions used :
  225. ;
  226. ;    1       *
  227. ;    1       /
  228. ;    21      +
  229. ;    2       -
  230. ;    2       ==
  231. ;    5       <
  232. ;    25      <=
  233. ;    3       >
  234. ;    12      >=
  235. ;    31      !
  236. ;    10      &&
  237. ;    5       ||
  238. ;    1       Len(
  239. ;    2       Left()
  240. ;    1       Space()
  241. ;    2       Ferr()
  242. ;    1       RTrim()
  243. ;    5       PPEPath()
  244. ;    2       ReadLine()
  245. ;    1       Exist()
  246. ;    2       S2I()
  247. ;
  248. ;------------------------------------------------------------------------------
  249. ;
  250. ; Analysis flags : No flag
  251. ;
  252. ;------------------------------------------------------------------------------
  253. ;
  254. ; Postprocessing report
  255. ;
  256. ;    5       For/Next
  257. ;    0       While/EndWhile
  258. ;    23      If/Then or If/Then/Else
  259. ;    0       Select Case
  260. ;
  261. ;------------------------------------------------------------------------------
  262. ;                 AEGiS Corp - Break the routines, code against the machines!
  263. ;------------------------------------------------------------------------------
  264.